BEGIN "UNPACK"
STRING FN; SAFE INTEGER ARRAY HD[0:10]; INTEGER IC,OC,I;
REQUIRE "PIXHDR.SAI[VIS,HPM]" SOURCE_FILE;
DO PRINT("File:") UNTIL (IC←OPNPFL(FN←INCHWL,HD[0]))≥0;
OC←CREPFL(HD[0],FN,1);
   BEGIN
   SAFE INTEGER ARRAY LIN[0:HD[LNWD]];
   FOR I←1 STEP 1 UNTIL HD[PCLN] DO
      BEGIN
      PFLIN(IC,LIN[0],HD[LNWD]);
      PFLOUT(OC,LIN[0],HD[LNWD]);
      END;
   PFLCLS(OC);
   PFLCLS(IC);
   END;
END "UNPACK";